home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PASSRC.ZIP / TIMEDATE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  416b  |  15 lines
  1.                                      (* Chapter 16 - Program 7 *)
  2. program Get_Time_And_Date;
  3.  
  4. uses Dos;
  5.  
  6. var Year,Month,Day,Weekday        : word;
  7.     Hour,Minute,Second,Hundredths : word;
  8.  
  9. begin
  10.    GetTime(Hour, Minute, Second, Hundredths);
  11.    GetDate(Year, Month, Day, Weekday);
  12.    Writeln('The date is ',Month:2,'/',Day:2,'/',Year);
  13.    Writeln('The time is ',Hour:2,':',Minute:2,':',Second:2);
  14. end.
  15.